object ExtractForm: TExtractForm Left = 226 Top = 206 Width = 496 Height = 371 HorzScrollBar.Visible = False VertScrollBar.Visible = False BorderIcons = [biSystemMenu, biMaximize] Caption = 'Extract' Color = clBtnFace ParentFont = True KeyPreview = True OldCreateOrder = True Scaled = False OnClose = FormClose OnCreate = FormCreate OnKeyDown = FormKeyDown OnKeyPress = FormKeyPress OnResize = FormResize OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object ExtractToL: TLabel Left = 8 Top = 8 Width = 185 Height = 13 AutoSize = False Caption = 'E&xtract to:' FocusControl = Destination end object FolderDrivesL: TLabel Left = 227 Top = 56 Width = 121 Height = 13 AutoSize = False Caption = '&Folders/drives:' end object Bevel1: TBevel Left = 4 Top = 302 Width = 479 Height = 8 Shape = bsTopLine end object Destination: TComboBox Left = 8 Top = 24 Width = 441 Height = 21 ItemHeight = 13 TabOrder = 0 OnChange = DestinationChange end object FilesGroup: TGroupBox Left = 8 Top = 56 Width = 209 Height = 89 Caption = ' Files ' TabOrder = 2 object SelectedFiles: TRadioButton Left = 8 Top = 16 Width = 193 Height = 17 Caption = '&Selected files' TabOrder = 0 end object AllFilesButt: TRadioButton Left = 8 Top = 40 Width = 193 Height = 17 Caption = '&All files' TabOrder = 1 end object CFiles: TRadioButton Left = 8 Top = 64 Width = 57 Height = 17 Caption = 'F&iles:' TabOrder = 2 OnClick = CFilesClick end object FileSpec: TEdit Left = 64 Top = 62 Width = 137 Height = 21 TabOrder = 3 Text = 'FileSpec' OnEnter = FileSpecEnter end end object ExplorerButt: TButton Left = 457 Top = 24 Width = 25 Height = 21 Caption = '->' TabOrder = 1 OnClick = ExploreButtClick end object NewFolderButt: TButton Left = 381 Top = 272 Width = 99 Height = 25 Caption = '&New Folder...' TabOrder = 4 OnClick = NewFolderButtClick end object ExtractButt: TButton Left = 247 Top = 309 Width = 75 Height = 25 Caption = '&Extract' Default = True TabOrder = 5 OnClick = ExtractButtClick end object CancelButt: TButton Left = 327 Top = 309 Width = 75 Height = 25 Caption = '&Cancel' TabOrder = 7 OnClick = CancelButtClick end object HelpButt: TButton Left = 409 Top = 309 Width = 75 Height = 25 Caption = '&Help' TabOrder = 6 OnClick = HelpButtClick end object ElGroupBox1: TGroupBox Left = 8 Top = 154 Width = 209 Height = 87 Caption = ' Options ' TabOrder = 3 object OverwriteExisting: TCheckBox Left = 8 Top = 16 Width = 193 Height = 17 Caption = '&Overwrite existing files' TabOrder = 0 end object UseFolderNames: TCheckBox Left = 8 Top = 40 Width = 193 Height = 17 Caption = 'Do not extract &pathnames' TabOrder = 1 end object CheckBox1: TCheckBox Left = 8 Top = 64 Width = 193 Height = 17 Caption = 'Open fol&der after extracting' TabOrder = 2 end end object treelist: TVirtualExplorerTreeview Left = 224 Top = 72 Width = 257 Height = 193 Active = True ColumnDetails = cdUser DefaultNodeHeight = 17 DragHeight = 250 DragWidth = 150 FileSizeFormat = fsfExplorer FileSort = fsFileType Header.AutoSizeIndex = 0 Header.Font.Charset = DEFAULT_CHARSET Header.Font.Color = clWindowText Header.Font.Height = -11 Header.Font.Name = 'MS Shell Dlg 2' Header.Font.Style = [] Header.MainColumn = -1 Header.Options = [hoColumnResize, hoDrag] HintMode = hmHint IncrementalSearch = isVisibleOnly ParentColor = False RootFolder = rfDesktop TabOrder = 8 TabStop = True TreeOptions.AutoOptions = [toAutoScroll] TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toToggleOnDblClick] TreeOptions.PaintOptions = [toShowButtons, toShowTreeLines, toUseBlendedImages, toGhostedIfUnfocused] TreeOptions.SelectionOptions = [toSiblingSelectConstraint] TreeOptions.VETShellOptions = [toContextMenus] TreeOptions.VETSyncOptions = [toCollapseTargetFirst, toExpandTarget, toSelectTarget] TreeOptions.VETMiscOptions = [toBrowseExecuteFolder, toBrowseExecuteFolderShortcut, toChangeNotifierThread, toRemoveContextMenuShortCut] TreeOptions.VETImageOptions = [toImages, toThreadedImages, toMarkCutAndCopy] OnChange = aa Columns = <> end end